home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / PolarRect.cpt / PolarRect Converter / card_3109.txt < prev    next >
Text File  |  1988-11-21  |  6KB  |  271 lines
  1. -- card: 3109 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2657
  5. -- name: about
  6. ----- HyperTalk script -----
  7. on opencard
  8.   lock screen
  9.   global currfld
  10.   put "Whatthisis" into currfld
  11.   repeat with i = 1 to 3
  12.     hide cd fld i
  13.   end repeat
  14.   show cd fld "Whatthisis"
  15.   unlock screen with dissolve
  16. end opencard
  17.  
  18.  
  19.  
  20.  
  21.  
  22. -- part 1 (field)
  23. -- low flags: 81
  24. -- high flags: 0000
  25. -- rect: left=4 top=30 right=294 bottom=495
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: whatthisis
  34.  
  35.  
  36. -- part 6 (button)
  37. -- low flags: 00
  38. -- high flags: A004
  39. -- rect: left=22 top=317 right=338 bottom=108
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: What This Is
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   lock screen
  51.   global currfld
  52.   hide cd fld currfld
  53.   put "whatthisis" into currfld
  54.   show card field "whatthisis"
  55.   unlock screen with dissolve
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 7 (button)
  61. -- low flags: 00
  62. -- high flags: A004
  63. -- rect: left=142 top=317 right=338 bottom=228
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Who Did This
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   lock screen
  75.   global currfld
  76.   hide cd fld currfld
  77.   show cd fld "Whodidthis"
  78.   put "Whodidthis" into currfld
  79.   unlock screen with dissolve
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 8 (button)
  85. -- low flags: 00
  86. -- high flags: A004
  87. -- rect: left=271 top=317 right=338 bottom=357
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Terms of Use
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   lock screen
  99.   global currfld
  100.   hide cd fld currfld
  101.   show cd fld "TermsofUse"
  102.   put "termsofuse" into currfld
  103.   unlock screen with dissolve
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 9 (button)
  109. -- low flags: 00
  110. -- high flags: A004
  111. -- rect: left=383 top=317 right=338 bottom=469
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Let Me Try!
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   global currfld
  123.   visual scroll right to black
  124.   visual wipe left to card
  125.   hide cd fld currfld
  126.   go to card "work"
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 10 (button)
  132. -- low flags: 00
  133. -- high flags: 2000
  134. -- rect: left=470 top=300 right=343 bottom=512
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 1011 / 1011
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Go HOme
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   go home
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 13 (field)
  151. -- low flags: 81
  152. -- high flags: 0000
  153. -- rect: left=4 top=30 right=294 bottom=495
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 0
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: TermsOfUse
  162.  
  163.  
  164. -- part 14 (field)
  165. -- low flags: 81
  166. -- high flags: 0000
  167. -- rect: left=4 top=30 right=294 bottom=495
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 0
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: whodidthis
  176.  
  177.  
  178. -- part 16 (button)
  179. -- low flags: 00
  180. -- high flags: 2000
  181. -- rect: left=39 top=268 right=289 bottom=65
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: me
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   global currfld
  193.   if currfld <> "whatthisis" then exit mouseup
  194.   else
  195.     show cd fld 4
  196.   end if
  197.  
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part 17 (field)
  203. -- low flags: 81
  204. -- high flags: 0007
  205. -- rect: left=4 top=138 right=237 bottom=219
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 0
  209. -- font id: 4
  210. -- text size: 9
  211. -- style flags: 0
  212. -- line height: 12
  213. -- part name: degreescript
  214. ----- HyperTalk script -----
  215. on mouseup
  216.   hide me
  217. end mouseup
  218.  
  219.  
  220.  
  221. -- part contents for card part 1
  222. ----- text -----
  223. This stack contains a couple handlers and functions which do some trigonometry functions dealing with angles and their radius's length.  Using the formula:
  224.  
  225. radius =  x  + y   
  226.  
  227. you are able to find the radius (or distance of the line) from 1 point to another.  Using the formula:
  228.  
  229. ‚àÇ= ArcTan (y/x)
  230.  
  231. you are able to find the angle measurement between the two points.
  232. Because, however, Hypercard deals with angle measurements in Radians, it was necessary to write a function to convert radian measurements into degrees.  This, too, is included and located in the stack's script, or click ME to see it. 
  233.  
  234.  
  235.  
  236. -- part contents for card part 14
  237. ----- text -----
  238.  
  239. This stack (and its contents) was done by Jason A. Haslup, one of your regular stackheads who thought this up on his way home from school.  Ideas for use include: Trig. teaching, games where you need to know angles and distances.  I'm sure there are others, but I'll leave them up to you to find out.  Please send me your comments about this stack at:
  240.  
  241. Jason Haslup on all Phoenix Macintosh BBS's
  242.  
  243. GEnie:  J.HASLUP
  244. CIS:  71470,40
  245.  
  246. or:    Jason Haslup
  247.         P.O. Box 1963
  248.         Cave Creek, AZ  85331
  249.  
  250.  
  251.  
  252. -- part contents for card part 13
  253. ----- text -----
  254.  
  255. Terms of Use:
  256.  
  257. Actually, NONE!  This stack is FREE!  (wow).  Of course, if you really, really love it, you can send me something, but I don't require it.  If you could, you may send me a note commenting about the stack, I would like that.  Other than that, use if freely in your stacks!  I would REALLY like it if you included my name in that stack, too.  If you modify it, send the new one to me, I know there is at least 1 problem with it (I'll let you find it).  
  258.  
  259. Thanks!
  260.  
  261.  
  262. -- part contents for card part 17
  263. ----- text -----
  264.  
  265. function todegree what
  266.   put what * 360 into x
  267.   put x/(2*pi) into thenew
  268.   return thenew
  269. end todegree what
  270.  
  271. Click me to continue